home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD14644272001.psc / X-Box project / main.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-01-27  |  13.7 KB  |  476 lines
  1. VERSION 5.00
  2. Begin VB.Form frmxcontroller 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "X-box controller"
  5.    ClientHeight    =   5610
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   7155
  9.    Icon            =   "main.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    Moveable        =   0   'False
  14.    ScaleHeight     =   5610
  15.    ScaleWidth      =   7155
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.Timer tmrscan 
  19.       Enabled         =   0   'False
  20.       Interval        =   100
  21.       Left            =   5520
  22.       Top             =   120
  23.    End
  24.    Begin VB.Timer tmr1 
  25.       Interval        =   1000
  26.       Left            =   5040
  27.       Top             =   120
  28.    End
  29.    Begin VB.CommandButton cmdend 
  30.       Caption         =   "EXIT"
  31.       Height          =   495
  32.       Left            =   1200
  33.       TabIndex        =   7
  34.       Top             =   4560
  35.       Width           =   2775
  36.       Visible         =   0   'False
  37.    End
  38.    Begin VB.Label lblbill 
  39.       BackStyle       =   0  'Transparent
  40.       Height          =   1095
  41.       Left            =   600
  42.       TabIndex        =   0
  43.       Top             =   4080
  44.       Width           =   3855
  45.    End
  46.    Begin VB.Line ln2 
  47.       BorderColor     =   &H000000FF&
  48.       BorderWidth     =   4
  49.       Visible         =   0   'False
  50.       X1              =   4900
  51.       X2              =   3050
  52.       Y1              =   2160
  53.       Y2              =   2160
  54.    End
  55.    Begin VB.Line ln1 
  56.       BorderColor     =   &H000000FF&
  57.       BorderWidth     =   4
  58.       Visible         =   0   'False
  59.       X1              =   2400
  60.       X2              =   0
  61.       Y1              =   2160
  62.       Y2              =   2160
  63.    End
  64.    Begin VB.Label lblgamec 
  65.       BackColor       =   &H8000000A&
  66.       Caption         =   "Gamecube button"
  67.       BeginProperty Font 
  68.          Name            =   "MS Sans Serif"
  69.          Size            =   8.25
  70.          Charset         =   0
  71.          Weight          =   700
  72.          Underline       =   0   'False
  73.          Italic          =   0   'False
  74.          Strikethrough   =   0   'False
  75.       EndProperty
  76.       Height          =   255
  77.       Left            =   5160
  78.       TabIndex        =   6
  79.       Top             =   1320
  80.       Width           =   2175
  81.       Visible         =   0   'False
  82.    End
  83.    Begin VB.Shape ring 
  84.       BorderColor     =   &H000000FF&
  85.       BorderWidth     =   4
  86.       FillColor       =   &H000000FF&
  87.       Height          =   615
  88.       Left            =   2430
  89.       Shape           =   3  'Circle
  90.       Top             =   1870
  91.       Width           =   615
  92.       Visible         =   0   'False
  93.    End
  94.    Begin VB.Label lblblub 
  95.       BackColor       =   &H8000000A&
  96.       Caption         =   "Green Blub"
  97.       BeginProperty Font 
  98.          Name            =   "MS Sans Serif"
  99.          Size            =   8.25
  100.          Charset         =   0
  101.          Weight          =   700
  102.          Underline       =   0   'False
  103.          Italic          =   0   'False
  104.          Strikethrough   =   0   'False
  105.       EndProperty
  106.       Height          =   255
  107.       Left            =   5160
  108.       TabIndex        =   5
  109.       Top             =   1080
  110.       Width           =   2175
  111.       Visible         =   0   'False
  112.    End
  113.    Begin VB.Image imgblub 
  114.       Height          =   1260
  115.       Left            =   5400
  116.       Picture         =   "main.frx":08CA
  117.       Top             =   1800
  118.       Width           =   1320
  119.       Visible         =   0   'False
  120.    End
  121.    Begin VB.Label lblblackcolor 
  122.       BackColor       =   &H8000000A&
  123.       Caption         =   "Black color"
  124.       BeginProperty Font 
  125.          Name            =   "MS Sans Serif"
  126.          Size            =   8.25
  127.          Charset         =   0
  128.          Weight          =   700
  129.          Underline       =   0   'False
  130.          Italic          =   0   'False
  131.          Strikethrough   =   0   'False
  132.       EndProperty
  133.       Height          =   255
  134.       Left            =   5160
  135.       TabIndex        =   4
  136.       Top             =   840
  137.       Width           =   2175
  138.       Visible         =   0   'False
  139.    End
  140.    Begin VB.Label lbldreamcontroller 
  141.       BackColor       =   &H8000000A&
  142.       Caption         =   "Dreamcast controller"
  143.       BeginProperty Font 
  144.          Name            =   "MS Sans Serif"
  145.          Size            =   8.25
  146.          Charset         =   0
  147.          Weight          =   700
  148.          Underline       =   0   'False
  149.          Italic          =   0   'False
  150.          Strikethrough   =   0   'False
  151.       EndProperty
  152.       Height          =   255
  153.       Left            =   5160
  154.       TabIndex        =   3
  155.       Top             =   600
  156.       Width           =   2175
  157.       Visible         =   0   'False
  158.    End
  159.    Begin VB.Label lblscan 
  160.       BackStyle       =   0  'Transparent
  161.       Caption         =   "Scanning for good ideas..."
  162.       BeginProperty Font 
  163.          Name            =   "MS Sans Serif"
  164.          Size            =   18
  165.          Charset         =   0
  166.          Weight          =   700
  167.          Underline       =   0   'False
  168.          Italic          =   0   'False
  169.          Strikethrough   =   0   'False
  170.       EndProperty
  171.       ForeColor       =   &H000000FF&
  172.       Height          =   615
  173.       Left            =   240
  174.       TabIndex        =   2
  175.       Top             =   4680
  176.       Width           =   4815
  177.       Visible         =   0   'False
  178.    End
  179.    Begin VB.Image imgscanline 
  180.       Height          =   75
  181.       Left            =   510
  182.       Picture         =   "main.frx":5FAC
  183.       Top             =   100
  184.       Width           =   3750
  185.       Visible         =   0   'False
  186.    End
  187.    Begin VB.Label lbltime 
  188.       Caption         =   "0"
  189.       Height          =   375
  190.       Left            =   6000
  191.       TabIndex        =   1
  192.       Top             =   120
  193.       Width           =   1575
  194.       Visible         =   0   'False
  195.    End
  196.    Begin VB.Line Line1 
  197.       X1              =   4920
  198.       X2              =   4920
  199.       Y1              =   3360
  200.       Y2              =   0
  201.    End
  202.    Begin VB.Image imgbill 
  203.       Height          =   2250
  204.       Left            =   4920
  205.       Picture         =   "main.frx":6E9E
  206.       Top             =   3360
  207.       Width           =   2235
  208.    End
  209.    Begin VB.Image imgtotalherm 
  210.       Height          =   3735
  211.       Left            =   480
  212.       Picture         =   "main.frx":17560
  213.       Top             =   120
  214.       Width           =   3825
  215.       Visible         =   0   'False
  216.    End
  217.    Begin VB.Image imgxbox 
  218.       Height          =   3735
  219.       Left            =   480
  220.       Picture         =   "main.frx":460A2
  221.       Top             =   120
  222.       Width           =   3825
  223.       Visible         =   0   'False
  224.    End
  225.    Begin VB.Image imgdream2 
  226.       Height          =   3735
  227.       Left            =   480
  228.       Picture         =   "main.frx":74BE4
  229.       Top             =   120
  230.       Width           =   3825
  231.       Visible         =   0   'False
  232.    End
  233.    Begin VB.Image imgdream 
  234.       Height          =   3735
  235.       Left            =   480
  236.       Picture         =   "main.frx":A3726
  237.       Top             =   120
  238.       Width           =   3825
  239.       Visible         =   0   'False
  240.    End
  241.    Begin VB.Image imgdreamx 
  242.       Height          =   3735
  243.       Left            =   480
  244.       Picture         =   "main.frx":D2268
  245.       Top             =   120
  246.       Width           =   3825
  247.       Visible         =   0   'False
  248.    End
  249.    Begin VB.Image imggamecube2 
  250.       Height          =   3735
  251.       Left            =   480
  252.       Picture         =   "main.frx":100DAA
  253.       Top             =   0
  254.       Width           =   3825
  255.       Visible         =   0   'False
  256.    End
  257.    Begin VB.Image imggamecube 
  258.       Height          =   3735
  259.       Left            =   480
  260.       Picture         =   "main.frx":12F8EC
  261.       Top             =   0
  262.       Width           =   3825
  263.       Visible         =   0   'False
  264.    End
  265.    Begin VB.Image imgbubble 
  266.       Height          =   1410
  267.       Left            =   360
  268.       Picture         =   "main.frx":15E42E
  269.       Top             =   3960
  270.       Width           =   4485
  271.       Visible         =   0   'False
  272.    End
  273. Attribute VB_Name = "frmxcontroller"
  274. Attribute VB_GlobalNameSpace = False
  275. Attribute VB_Creatable = False
  276. Attribute VB_PredeclaredId = True
  277. Attribute VB_Exposed = False
  278. Private Sub cmdend_Click()
  279. MsgBox "Don't gossip now huh?!?!?!", vbExclamation, "Bill Gates:"
  280. End Sub
  281. Private Sub Form_Unload(Cancel As Integer)
  282. MsgBox "Don't gossip now huh?!?!?!", vbExclamation, "Bill Gates:"
  283. End Sub
  284. Private Sub tmr1_Timer()
  285. lbltime.Caption = lbltime.Caption + 1
  286. If lbltime.Caption = "2" Then
  287. imgbubble.Visible = True
  288. lblbill.Caption = "Lets make the X-Box controller. We need insperation."
  289. End If
  290. If lbltime.Caption = "4" Then
  291. imgbubble.Visible = False
  292. lblbill.Caption = ""
  293. End If
  294. If lbltime.Caption = "5" Then
  295. imgbubble.Visible = True
  296. lblbill.Caption = "Lets take a little look on the dreamcast controller... Here we go."
  297. End If
  298. If lbltime.Caption = "7" Then
  299. imgdream.Visible = True
  300. End If
  301. If lbltime.Caption = "9" Then
  302. imgbubble.Visible = False
  303. lblbill.Caption = ""
  304. End If
  305. If lbltime.Caption = "11" Then
  306. tmrscan.Enabled = True
  307. imgscanline.Visible = True
  308. tmr1.Enabled = False
  309. lblscan.Visible = True
  310. End If
  311. If lbltime.Caption = "12" Then
  312. imgbubble.Visible = True
  313. lblbill.Caption = "What the heck... Take all of it!"
  314. End If
  315. If lbltime.Caption = "14" Then
  316. imgbubble.Visible = False
  317. lblbill.Caption = ""
  318. End If
  319. If lbltime.Caption = "15" Then
  320. lbldreamcontroller.Visible = True
  321. End If
  322. If lbltime.Caption = "16" Then
  323. imgbubble.Visible = True
  324. lblbill.Caption = "What color should it be..... Aha! We will make it black, just like my boxers!"
  325. End If
  326. If lbltime.Caption = "18" Then
  327. imgdream.Visible = False
  328. imgdream2.Visible = True
  329. End If
  330. If lbltime.Caption = "19" Then
  331. imgbubble.Visible = False
  332. lblbill.Caption = ""
  333. lblblackcolor.Visible = True
  334. End If
  335. If lbltime.Caption = "21" Then
  336. imgbubble.Visible = True
  337. lblbill.Caption = "Lets replace the dreamcast vm socket and dreamcast logo with this blub."
  338. End If
  339. If lbltime.Caption = "23" Then
  340. imgbubble.Visible = True
  341. lblbill.Caption = "Lets replace the dreamcast vm socket and dreamcast logo with this blub."
  342. imgblub.Visible = True
  343. End If
  344. If lbltime.Caption = "24" Then
  345. imgbubble.Visible = False
  346. lblbill.Caption = ""
  347. End If
  348. If lbltime.Caption = "25" Then
  349. imgblub.Visible = False
  350. imgdream2.Visible = False
  351. imgdreamx.Visible = True
  352. End If
  353. If lbltime.Caption = "26" Then
  354. lblblub.Visible = True
  355. End If
  356. If lbltime.Caption = "28" Then
  357. imgbubble.Visible = True
  358. lblbill.Caption = "Something is missing! We need more insperation... Lets take a little look on the gamecube controller!!!!!!!"
  359. End If
  360. If lbltime.Caption = "30" Then
  361. imgdreamx.Visible = False
  362. imggamecube.Visible = True
  363. End If
  364. If lbltime.Caption = "30" Then
  365. imgdreamx.Visible = False
  366. imggamecube.Visible = True
  367. End If
  368. If lbltime.Caption = "32" Then
  369. imgbubble.Visible = False
  370. lblbill.Caption = ""
  371. imgscanline.Top = 100
  372. tmrscan.Enabled = True
  373. imgscanline.Visible = True
  374. tmr1.Enabled = False
  375. lblscan.Visible = True
  376. End If
  377. If lbltime.Caption = "33" Then
  378. ring.Visible = True
  379. ln1.Visible = True
  380. ln2.Visible = True
  381. End If
  382. If lbltime.Caption = "34" Then
  383. ring.Visible = True
  384. End If
  385. If lbltime.Caption = "35" Then
  386. imgbubble.Visible = True
  387. lblbill.Caption = "Aha!!! Thats a pretty good idea!!! Lets borrow the gamecube analouge C button!"
  388. End If
  389. If lbltime.Caption = "37" Then
  390. imgbubble.Visible = False
  391. lblbill.Caption = ""
  392. imggamecube.Visible = False
  393. imggamecube2.Visible = True
  394. lblgamec.Visible = True
  395. ring.Visible = False
  396. ln1.Visible = False
  397. ln2.Visible = False
  398. End If
  399. If lbltime.Caption = "38" Then
  400. imggamecube2.Visible = False
  401. End If
  402. If lbltime.Caption = "40" Then
  403. imgdreamx.Visible = True
  404. End If
  405. If lbltime.Caption = "41" Then
  406. imgdreamx.Visible = False
  407. imgtotalherm.Visible = True
  408. End If
  409. If lbltime.Caption = "42" Then
  410. imgbubble.Visible = True
  411. lblbill.Caption = "Perfect!"
  412. End If
  413. If lbltime.Caption = "43" Then
  414. imgbubble.Visible = False
  415. lblbill.Caption = ""
  416. End If
  417. If lbltime.Caption = "44" Then
  418. imgbubble.Visible = True
  419. lblbill.Caption = "Now we must change the design a little bit... Here we gooo!"
  420. End If
  421. If lbltime.Caption = "46" Then
  422. imgbubble.Visible = False
  423. lblbill.Caption = ""
  424. End If
  425. If lbltime.Caption = "46" Then
  426. imgbubble.Visible = False
  427. lblbill.Caption = ""
  428. imgtotalherm.Visible = False
  429. End If
  430. If lbltime.Caption = "47" Then
  431. lblscan.Caption = "Transforming..."
  432. lblscan.Visible = True
  433. End If
  434. If lbltime.Caption = "48" Then
  435. lblscan.Visible = False
  436. End If
  437. If lbltime.Caption = "49" Then
  438. lblscan.Visible = True
  439. End If
  440. If lbltime.Caption = "50" Then
  441. lblscan.Visible = False
  442. End If
  443. If lbltime.Caption = "51" Then
  444. lblscan.Visible = True
  445. End If
  446. If lbltime.Caption = "52" Then
  447. lblscan.Visible = False
  448. End If
  449. If lbltime.Caption = "53" Then
  450. imgxbox.Visible = True
  451. End If
  452. If lbltime.Caption = "54" Then
  453. imgbubble.Visible = True
  454. lblbill.Caption = "Oh! It's perfect! No one will suspect us now! Buhahaha!"
  455. End If
  456. If lbltime.Caption = "56" Then
  457. imgbubble.Visible = False
  458. lblbill.Caption = ""
  459. End If
  460. If lbltime.Caption = "57" Then
  461. cmdend.Visible = True
  462. End If
  463. End Sub
  464. Private Sub tmrscan_Timer()
  465. imgscanline.Top = imgscanline.Top + 100
  466. If imgscanline.Top = 3700 Then
  467. tmrscan.Enabled = False
  468. imgscanline.Visible = False
  469. lblscan.Visible = False
  470. tmr1.Enabled = True
  471. End If
  472. End Sub
  473. Private Sub txttemp_Change()
  474. lbltime.Caption = txttemp.Text
  475. End Sub
  476.